home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
051-075
/
scopedisk61
/
dme
/
util
/
autorefs.c
< prev
Wrap
C/C++ Source or Header
|
1995-03-19
|
4KB
|
159 lines
/*
* AUTOREFS refsfile docfile docfile docfile
*
* Given one or more autodoc or .H files (e.g. intuition.doc) or include
* files (e.g. exec/types.h), this program appends to a dme.refs file
* <refsfile> appropriate lines.
*
* AUTOREFS determines the file type from the extension (.h for header
* files, otherwise assumed to be a doc file).
*/
#include <stdio.h>
main(ac,av)
char *av[];
{
short i;
FILE *fi;
FILE *fo;
if (ac == 1) {
puts("autorefs outfile docfile docfile ...");
exit(1);
}
fo = fopen(av[1], "a");
if (!fo) {
printf("unable to open %s for append\n", av[1]);
exit(1);
}
for (i = 2; i < ac; ++i) {
register char *file = av[i];
register short len = strlen(file);
short doth = 0;
if (len >= 2 && (file[len-1] == 'h' || file[len-1] == 'H') && file[len-2] == '.')
doth = 1;
fi = fopen(file, "r");
if (fi) {
if (doth) {
printf("Scanning .H file: %s\n", file);
scanhfile(fi, fo, file);
} else {
printf("Scanning DOC file: %s\n", file);
scandocfile(fi, fo, file);
}
fclose(fi);
} else {
printf("Unable to read %s\n", file);
}
}
}
/*
* Find the headers for each function entry and generate a DME.REFS
* entry for it. The @@<N> is a short form seek position (this field
* normally holds a search string).
*/
scandocfile(fi, fo, filename)
FILE *fi;
FILE *fo;
char *filename;
{
char buf[256];
long pos = 0;
while (fgets(buf, 256, fi)) {
register short len = strlen(buf) - 1;
register char *ptr = buf + len;
char *header, *tail;
buf[len] = 0;
while (ptr != buf && ptr[-1] != ' ' && ptr[-1] != 9)
--ptr;
if (ptr != buf && *ptr && strncmp(buf, ptr, strlen(ptr)) == 0) {
header = ptr;
for (ptr = buf + len; ptr != buf && IsAlphaNum(ptr[-1]); --ptr);
tail = ptr;
fprintf(fo, "%-20s (^l) %s @@%ld\n", tail, filename, pos);
}
pos = ftell(fi);
}
}
/*
* Find each structure definition (stupid search, assume struct on left
* hand side) then generate dme.refs entry from the end point of the
* previous structure to the beginning of the next structure. That is,
* the reference refers to the structure and all fields before and after
* it until the next structure (before and after).
*/
scanhfile(fi, fo, filename)
FILE *fi;
FILE *fo;
char *filename;
{
char buf[256];
char sname[128];
long lin = 1;
long lin1;
long lin2 = 1;
long pos = 0;
long pos1;
long pos2 = 0;
short snameisvalid = 0;
short newsname = 0;
while (fgets(buf, 256, fi)) {
register char *ptr = buf;
if (ptr[0] == ' ') /* allow one space before struct */
++ptr;
/* ok if "union" 1 less than "struct" */
if (strncmp(ptr, "struct", 6) == 0 || strncmp(ptr, "union", 5) == 0) {
if (snameisvalid)
fprintf(fo, "%-20s %3ld %s @@%ld\n", sname, lin-lin1, filename, pos1);
SetSName(sname, ptr+6);
snameisvalid = 0;
newsname = 1;
pos1 = pos2;
lin1 = lin2;
}
pos = ftell(fi);
++lin;
if (strncmp(ptr, "};", 2) == 0) {
pos2 = pos;
lin2 = lin;
snameisvalid = newsname;
}
}
if (snameisvalid)
fprintf(fo, "%-20s %3ld %s @@%ld\n", sname, lin-lin1, filename, pos1);
}
SetSName(buf, ptr)
register char *buf, *ptr;
{
while (*ptr == ' ' || *ptr == 9)
++ptr;
while (*ptr && *ptr != '\n' && *ptr != ' ' && *ptr != 9)
*buf++ = *ptr++;
*buf = 0;
}
IsAlphaNum(c)
char c;
{
if ((c >= 'a' && c <= 'z') ||
(c >= 'A' && c <= 'Z') ||
(c >= '0' && c <= '9') ||
(c == '_') || (c == '(') || (c == ')')
)
return(1);
return(0);
}